home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / drives.swg / 0003_Finding the Default Drive.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  968b  |  25 lines
  1. *--*  03-31-93  -  21:49:00  *--*
  2. /. Date: 03-31-93 (09:51)              Number: 24032 of 24035
  3.   To: IOANNIS HADJIIOANNOU          Refer#: 23844
  4. From: LEE BARKER                      Read: NO
  5. Subj: Current Drive                 Status: PUBLIC MESSAGE
  6. Conf: R-TP (552)                 Read Type: GENERAL (A) (+)
  7.  
  8. ┌─┬───────────────    Ioannis Hadjiioannou    ───────────────┬─╖
  9. │o│ How can I find which drive is  the default drive?        │o║
  10. ╘═╧══════════════════════════════════════════════════════════╧═╝
  11. While X may mark the spot, period marks/inhibits the drive.
  12.  
  13. Uses Dos;
  14. begin
  15.   Writeln(fexpand('.'));
  16. end.
  17.  
  18. As For getting the drive Label look up findfirst With an
  19. attribute of "directory".
  20. ---
  21.  ■ Tags τ Us ■  Operator! Trace this call and tell me where I am
  22.  * Suburban Software - Home of King of the Board(tm) - 708-636-6694
  23.  * PostLink(tm) v1.05  SUBSOFT (#715) : RelayNet(tm) Hub
  24.  
  25. (61 min left), (H)elp, end of Message Command?